|
4
|
How can I fit or ensure that all elements are in the control's client area
Procedure OnCreate
Forward Send OnCreate
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Variant voElement
Get ComAdd of hoElements "Element A" -500 -500 to voElement
Handle hoElement
Get Create (RefClass(cComElement)) to hoElement
Set pvComObject of hoElement to voElement
Set ComBackColor of hoElement to (RGB(0,255,0))
Send Destroy to hoElement
Variant voElement1
Get ComAdd of hoElements "Element B" 500 500 to voElement1
Handle hoElement1
Get Create (RefClass(cComElement)) to hoElement1
Set pvComObject of hoElement1 to voElement1
Set ComBackColor of hoElement1 to (RGB(255,0,0))
Send Destroy to hoElement1
Get ComAdd of hoElements "Element C" 48 24 to Nothing
Send Destroy to hoElements
Send ComFitToClient
End_Procedure
|
|
3
|
Context Menu - Microsoft Windows 8.1 - Ribbon Like
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn" to Nothing
Get ComAdd of hoAppearance 17 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn" to Nothing
Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 30 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn" to Nothing
Get ComAdd of hoAppearance 31 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn" to Nothing
Get ComAdd of hoAppearance 32 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn" to Nothing
Get ComAdd of hoAppearance 33 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn" to Nothing
Get ComAdd of hoAppearance 34 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 35 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexContextMenuAppearance to |CI$1000000
Set ComBackground OLEexToolTipAppearance to |CI$1fefefe
Set ComBackground OLEexContextMenuSelBackColor to |CI$e000000
Set ComBackground OLEexToolBarAppearance to |CI$1000000
Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
Set ComBackground OLEexToolBarButtonHotBackColor to |CI$c000000
Set ComBackground OLEexToolBarButtonDownBackColor to |CI$e000000
Set ComBackground OLEexContextMenuHotBackColor to |CI$c000000
Set ComBackground OLEexContextMenuSelHotBackColor to |CI$23000000
Set ComBackground |CI$2 to |CI$22000000
Set ComBackground |CI$3 to |CI$23000000
Set ComBackground OLEexCheckBoxState0 to |CI$20000000
Set ComBackground OLEexCheckBoxState1 to |CI$21000000
Set ComBackground OLEexRadioButtonState0 to |CI$1e000000
Set ComBackground OLEexRadioButtonState1 to |CI$1f000000
Send ComEndUpdate
End_Procedure
|
|
2
|
Context Menu - Microsoft Paint - Ribbon Like
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn" to Nothing
Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn" to Nothing
Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn" to Nothing
Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn" to Nothing
Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn" to Nothing
Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn" to Nothing
Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn" to Nothing
Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn" to Nothing
Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn" to Nothing
Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn" to Nothing
Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn" to Nothing
Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn" to Nothing
Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexContextMenuAppearance to |CI$1000000
Set ComBackground OLEexContextMenuForeColor to (RGB(21,66,139))
Set ComBackground OLEexContextMenuSelBackColor to |CI$e000000
Set ComBackground OLEexToolTipAppearance to |CI$1fefefe
Set ComBackground OLEexToolBarAppearance to |CI$1000000
Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
Set ComBackground OLEexToolBarButtonHotBackColor to |CI$d000000
Set ComBackground OLEexToolBarButtonDownBackColor to |CI$1000000
Set ComBackground |CI$2 to |CI$d000000
Set ComBackground OLEexContextMenuGroupPopupFrameSingle to |CI$5000000
Set ComBackground OLEexContextMenuGroupPopupFrameHStart to |CI$6000000
Set ComBackground OLEexContextMenuGroupPopupFrameHIntermediate to |CI$7000000
Set ComBackground OLEexContextMenuGroupPopupFrameHEnd to |CI$8000000
Set ComBackground OLEexContextMenuGroupPopupFrameVStart to |CI$9000000
Set ComBackground OLEexContextMenuGroupPopupFrameVIntermediate to |CI$a000000
Set ComBackground OLEexContextMenuGroupPopupFrameVEnd to |CI$b000000
Set ComBackground OLEexContextMenuHotBackColor to |CI$c000000
Set ComBackground OLEexContextMenuSelHotBackColor to |CI$f000000
Send ComEndUpdate
End_Procedure
|
|
1
|
Context Menu - Microsoft Office - Ribbon Like
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn" to Nothing
Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn" to Nothing
Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn" to Nothing
Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn" to Nothing
Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn" to Nothing
Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn" to Nothing
Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn" to Nothing
Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn" to Nothing
Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn" to Nothing
Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn" to Nothing
Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn" to Nothing
Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn" to Nothing
Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn" to Nothing
Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn" to Nothing
Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn" to Nothing
Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn" to Nothing
Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn" to Nothing
Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexContextMenuAppearance to |CI$1000000
Set ComBackground OLEexContextMenuForeColor to (RGB(21,66,139))
Set ComBackground OLEexToolTipAppearance to |CI$1fefefe
Set ComBackground OLEexToolBarAppearance to |CI$1000000
Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
Set ComBackground OLEexToolBarButtonHotBackColor to |CI$d000000
Set ComBackground OLEexToolBarButtonDownBackColor to |CI$1000000
Set ComBackground |CI$2 to |CI$d000000
Set ComBackground |CI$3 to |CI$1000000
Set ComBackground OLEexContextMenuGroupPopupFrameSingle to |CI$5000000
Set ComBackground OLEexContextMenuGroupPopupFrameHStart to |CI$6000000
Set ComBackground OLEexContextMenuGroupPopupFrameHIntermediate to |CI$7000000
Set ComBackground OLEexContextMenuGroupPopupFrameHEnd to |CI$8000000
Set ComBackground OLEexContextMenuGroupPopupFrameVStart to |CI$9000000
Set ComBackground OLEexContextMenuGroupPopupFrameVIntermediate to |CI$a000000
Set ComBackground OLEexContextMenuGroupPopupFrameVEnd to |CI$b000000
Set ComBackground OLEexContextMenuHotBackColor to |CI$c000000
Set ComBackground OLEexContextMenuSelBackColor to |CI$e000000
Set ComBackground OLEexContextMenuSelHotBackColor to |CI$f000000
Send ComEndUpdate
End_Procedure
|